000100******************************************************************
000200*PROGRAM : Build Schedule ISAM
000300*AUTHOR  : Minh-Tuan Ta
000400******************************************************************
000500 IDENTIFICATION DIVISION.
000600 PROGRAM-ID. BLDG-B.
000700 ENVIRONMENT DIVISION.
001200
001300     SELECT OUTFILE      ASSIGN TO "SCHEDMST.DAT"
001400                         ORGANIZATION  IS INDEXED
001500                         ACCESS        IS SEQUENTIAL
001600                         RECORD KEY    IS OUT-PRIME-KEY
001700                         FILE STATUS   IS WS-STAT.
001800
001900 DATA DIVISION.
002000 FILE SECTION.
004200
004300 FD  OUTFILE.
004400 01  OUT-REC.
004500     03  OUT-PRIME-KEY.
               05  OUT-TERM    PIC X(6).
               05  OUT-CRN     PIC 9(4).
004600
004700     03  OUT-COURSE-ID  PIC X(8).
004800     03  OUT-BLDG-CODE     PIC X(11).
004900     03  OUT-INSTRUCTOR-ID PIC 9(3).
005000     03  OUT-PERIOD        PIC X(15).
005100     03  OUT-ACTIVE      PIC X.
005200
005300 WORKING-STORAGE SECTION.
005400 01  WS-STAT         PIC XX.
005500 01  WS-EOF          PIC X VALUE 'N'.
005600 SCREEN SECTION.
005700 01  BUILDING-SCRN.
005800     03  BLANK SCREEN.
005900     03  LINE 12 COL 32 VALUE "BUILDING COURSE FILE".
006800
006900
007000 PROCEDURE DIVISION.
007100 100-MAIN.
007200     OPEN OUTPUT OUTFILE

           CLOSE OUTFILE
           EXIT PROGRAM.
